home *** CD-ROM | disk | FTP | other *** search
/ Star Festival... a Return to Japan / Star Festival... a Return to Japan.iso / pc / STARFESTIVAL / 01d1.dir / 00001.ls next >
Encoding:
Text File  |  1999-04-08  |  1.4 KB  |  56 lines
  1. on startMovie
  2.   global qtChan, gKnobSprite, gSendMovie
  3.   puppetSprite(48, 1)
  4.   gKnobSprite = 14
  5.   gSendMovie = "01d1"
  6.   setUpKnob()
  7.   setUpKnob()
  8.   qtChan = 11
  9.   sprite(qtChan).volume = 256
  10.   preLoad(qtChan - 1)
  11.   set the mouseDownScript to EMPTY
  12.   set the mouseUpScript to EMPTY
  13.   sprite(11).visible = 0
  14.   sprite(12).visible = 0
  15. end
  16.  
  17. on idle
  18.   global gCursorReady
  19.   if gCursorReady = 1 then
  20.     cursor(200)
  21.     checkCursors()
  22.     set the locH of sprite 48 to the mouseH
  23.     set the locV of sprite 48 to the mouseV
  24.     updateStage()
  25.   end if
  26. end
  27.  
  28. on checkCursors
  29.   global gMagCursor
  30.   set the castNum of sprite 48 to the number of member "curs1"
  31.   if rollOver(5) then
  32.     set the castNum of sprite 48 to the number of member "hotCursor"
  33.   end if
  34.   if rollOver(6) then
  35.     set the castNum of sprite 48 to the number of member "curs1"
  36.   end if
  37.   repeat with i = 15 to 17
  38.     if rollOver(i) then
  39.       set the castNum of sprite 48 to the number of member "hotCursor"
  40.     end if
  41.   end repeat
  42.   repeat with i = 33 to 35
  43.     if rollOver(i) then
  44.       set the castNum of sprite 48 to the number of member "hotCursor"
  45.     end if
  46.   end repeat
  47.   if rollOver(36) then
  48.     set the castNum of sprite 48 to the number of member "hotCursor"
  49.   end if
  50.   repeat with i = 40 to 42
  51.     if rollOver(i) then
  52.       set the castNum of sprite 48 to the number of member "hotCursor"
  53.     end if
  54.   end repeat
  55. end
  56.